Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

GridOff
AxesOff
LabelOff
BG-None
CoordOff
ViewWindow 0,126,1,0,62,1
ClrText
[[0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0]]Mat A
Locate 1,1,"TAPEZ VOTRE MOT '=F1"
Locate 1,2,"PUIS APPUYEZ SUR EXE"
0A~Z
1B
Fill(1,Mat A)
Lbl 0
Getkey=rGoto 0
Getkeyr
r=0Goto 0
r=27 Or r=28 Or r=29 Or r=37 Or r=38 Or r=39 Or r=47 Or r=48 Or r=49 Or r=51 Or r=57 Or r=58 Or r=59 Or r=67 Or r=68 Or r=69 Or r=77 Or r=78Goto 0
r=31Goto W
If r=44
Then B=1Goto 0
B-1B
Locate B,4," "
1Mat A[B,1]
Goto 0
IfEnd
B>20Goto 0
rMat A[B,1]
Locate B,4,"*"
Isz B
Goto 0
Lbl W
Cls
For 1A To 20
Mat A[A,1]
Ans0 And Ans1 And Ans61 And Ans41Text 5,6A,"_"
If Ans=41
Then Text 5,6A,"-"
B-1B
IfEnd
Ans=61B-1B
If Ans=79
Then Text 5,6A,"'"
B-1B
IfEnd
Next
Text 57,1,"NB DE COUP RESTANT 10"
Text 1,1,""
11J
Lbl 1
Getkeyr
r=0Goto 1
0G
Lbl L
For 1H To 20
r=0 And LGoto A
If Mat A[H,1]=r Or L=
Then G
L=Mat A[H,1]r
6HI
r=76Text 5,I,"A"
r=66Text 5,I,"B"
r=56Text 5,I,"C"
r=46Text 5,I,"D"
r=36Text 5,I,"E"
r=26Text 5,I,"F"
r=75Text 5,I,"G"
r=65Text 5,I,"H"
r=55Text 5,I,"I"
r=45Text 5,I,"J"
r=35Text 5,I,"K"
r=25Text 5,I,"L"
r=74Text 5,I-1,"M"
r=64Text 5,I,"N"
r=54Text 5,I,"O"
r=73Text 5,I,"P"
r=63Text 5,I,"Q"
r=53Text 5,I,"R"
r=43Text 5,I,"S"
r=33Text 5,I,"T"
r=72Text 5,I,"U"
r=62Text 5,I,"V"
r=52Text 5,I-1,"W"
r=42Text 5,I,"X"
r=32Text 5,I,"Y"
r=71Text 5,I,"Z"
Text 1,1,""
1Mat A[H,1]
0M
L= And H=20Goto Z
LB-1B
B=1Goto V
Else If G And H=20
Then Dsz J
If J=1
Then L
Text 20,1,"PENDU"
Text 30,1,"SOLUTION"
N
IfEnd
J=10Green F-Line 70,10,110,10
J=9Green F-Line 85,10,85,50
J=8Green F-Line 85,50,100,50
J=7Green F-Line 100,50,100,45
J=6Green Circle 100,40,5
J=5Green F-Line 100,35,100,25
J=4Green F-Line 100,25,90,15
J=3Green F-Line 100,25,110,15
J=2Green F-Line 100,30,110,30
J=1Green F-Line 100,30,90,30
Text 57,80," "
Orange Text 57,84,J-1
Text 1,1,""
N=Goto L
IfEnd
IfEnd
Lbl A
Next
Goto 1
Lbl V
M
Lbl Z
For 1Z To 88
Text 20,1," "
L=Text 20,1,"PENDU"
M=Text 20,1,"GAGNE"
Next
Stop